﻿Imports BUS
Imports DTO

Public Class fmTraCuuDoanhThu
    Private Sub LoadLoaiPhong()
        Dim lhBus As New LoaiPhongBus()
        Dim ds As List(Of LoaiPhongDto)
        ds = lhBus.LayDanhSach()
        ComboBoxLoaiPhong.DataSource = ds
        ComboBoxLoaiPhong.ValueMember = "MaLoaiPhong"    'Chuoi ten property Ma cua doi tuong LopHocDto
        ComboBoxLoaiPhong.DisplayMember = "TenLoaiPhong" 'Chuoi ten property Ten cua doi tuong LopHocDto
    End Sub
    Private Sub ButtonThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonThoat.Click
        Me.Close()
    End Sub

    Private Sub fmTraCuuDoanhThu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            LoadLoaiPhong()
            'hsCrt = New SinhvienCrt()
            'CapNhatTieuChuanTraCuu(False)
            'Dim dtHS As New DataTable()
            'dtgSinhVien.DataSource = dtHS
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class